5 REM ------- TRANS 0(64HIRES) -
10 DATA 0,0,15,0,15,9,7,5,13,0,9
20 DIM X(6),Y(6)
30 FOR I=1 TO 5 : READ X(I),Y(I) : NEXT
40 X(6)=X(1) : Y(6)=Y(1)
50 POKE 53280,0 : SYS37498 : HFL,6,12
60 REM START
70 FOR I=1 TO 5
80 LIN,X(I),Y(I),X(I+1),Y(I+1)
90 NEXT
100 GET A$ : IF A$="" THEN 100
110 HOF